home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 1 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  46 lines
  1. 10 ;RD TRK 1
  2. 11 JSR SCREEN
  3. 12 SCLP JSR GET
  4. 13 CMP #$0D
  5. 14 BNE SCLP
  6. 60 START JSR CLRALL; CLEAR ALL BUFFERS
  7. 70 LDA #$40; #64 TRYS AT FINDING SECTOR DATA
  8. 80 STA CT
  9. 115 LDA #$60:STA WRK;REPLACE JSR IN GCR ROUTINE
  10. 120 JSR FILL; FILL 1541 RAM BUFFERS WITH 0'S
  11. 130 JSR INIT; INITIALIZE THE DISK
  12. 140 JSR SCRIN; SCREEN FORMAT & DATA INPUT
  13. 141 LDA HLFFLG; CHECK IF HALF TRACK
  14. 142 BEQ ST1; IF EQUAL HLFFLG NOT SET
  15. 145 JSR HLF
  16. 146 DEC TRK:LDA TRK; IF HALF TRACK WE'LL BE ONE
  17. 147 STA TKSEC; TRACK LOWER THAN NORMAL
  18. 150 ST1 JSR SECTOR; CALCULATE # OF SECTORS
  19. 160 JSR RDERR; READ ERRORS AT $00 IN 1541
  20. 170 JSR DISP; PRINT ERRORS TO SCREEN
  21. 220 LDX #$00
  22. 230 JSR PRGDSK; PUT DISK PROGRAM AT $0300
  23. 260 TRY JSR EXDSK; #$E0 AT $00 EXECUTE
  24. 290 JSR RDDSK; READ RAM AT $0400 TO $05FF
  25. 291 JSR STOP;AFTER ERRORS DISPLAYED RUN STOP
  26. 292 BNE (null)ON;WILL TERMINATE PROGRAM
  27. 293 JMP ALLD
  28. 300 (null)ON JSR GCR; CONVERT GCR HEADER TO HEX
  29. 310 JSR FMT; ROW AT $7FXX TO PUT HEADER
  30. 320 LDA SECFLG
  31. 330 BEQ NOSEC; IF 0 DUPLICATE READ
  32. 340 LDA #$00
  33. 350 STA SECFLG; RESET SECTOR FLAG
  34. 360 DEC SEC; SUBTRACT 1 IF NOT DUPLICATE
  35. 370 LDA SEC
  36. 380 BNE NOSEC
  37. 440 ALLD JSR INIT; THIS IS THE END
  38. 445 LDA #$00:STA WRK; REPLACE JSR WITH BRK IN GCR ROUTINE
  39. 460 BRK; FORCES ROUTINE TO M/L MONITOR
  40. 470 NOSEC JSR CLRBUF; CLEAR BUFFERS FOR MORE
  41. 480 DEC CT; SUBTRACT 1 FROM OUR 64 TRYS
  42. 490 LDA CT
  43. 500 BEQ ALLD; IF ZERO WE'RE DONE
  44. 510 JMP TRY; IF NOT ZERO LOOK FOR MORE
  45. 520 .FILE RD TRK 2
  46.